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In  this  article  we  consider  the  polymorphic  type  checking  of  an  imperative  language.  Our  lan¬ 
guage  contains  variables,  first-class  references  (pointers),  and  first-class  functions.  Variables,  as 
in  traditional  imperative  languages,  are  implicitly  dereferenced,  and  their  addresses  (L- values)  are 
not  first-class  values.  Variables  are  easier  to  type  check  than  references  and,  in  many  cases,  lead 
to  more  general  polymorphic  types.  We  present  a  polymorphic  type  system  for  our  language  and 
prove  that  it  is  sound.  Programs  that  use  variables  sometimes  require  weak  types,  as  in  Tofte’s 
type  system  for  Standard  ML,  but  such  weak  types  arise  far  less  frequently  with  variables  than 
with  references. 

Categories  and  Subject  Descriptors:  D.3.3  [Programming  Languages]:  Language  Constructs 
and  Features;  F.3.3  [Logics  and  Meanings  of  Programs]:  Studies  of  Program  Constructs — 

type  structure 
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1.  INTRODUCTION 

Polymorphic  type  checking  of  a  language  with  Rrst-class  references  (pointers)  is  a 
difficult  problem,  as  can  be  seen  by  the  many  type  systems  proposed  for  typing  ref¬ 
erences  in  Standard  ML  [Damas  1985;  Greiner  1993;  Hoang  et  al.  1993;  Leroy  1993; 
Leroy  and  Weis  1991;  Talpin  and  Jouvelot  1992;  Tofte  1990;  Wright  1995].  But 
many  imperative  programs  do  not  require  the  power  of  Rrst-class  references — they 
merely  manipulate  values,  other  than  pointers,  as  the  contents  of  local  variables. 
Unfortunately,  if  local  variables  must  be  created  using  Rrst-class  references,  then 
whatever  mechanism  is  used  to  enforce  the  correct  typing  of  references  is  likely  to 
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adversely  affect  the  typing  of  programs  that  really  only  need  variables.  Thus,  it  is 
benehcial  to  introduce  an  additional  letvar  construct  to  allocate  variables,  which 
are  implicitly  dereferenced  and  whose  addresses  (T-values)  are  not  Rrst-class  values. 

Aside  from  their  typing  benefits,  variables  are  also  of  interest  because  their  im¬ 
plicit  dereferencing  is  a  syntactic  convenience,  and  because  they  are  at  the  core  of 
mainstream  imperative  languages. 

The  idea  of  including  variables  in  a  polymorphic  language  is  not  new.  In  fact, 
Edinburgh  LCF  ML  [Gordon  et  al.  1979]  had  a  letvar  construct,  which  it  called 
letref .  But  it  did  not  have  Rrst-class  references,  and  according  to  Tofte  [1990],  its 
type  system  was  never  proved  sound. 

2.  AN  INFORMAL  DESCRIPTION  OF  THE  TYPE  SYSTEM 

The  language  we  consider  is  the  core  ML  of  Damas  and  Milner  [1982]  together  with 
Rrst-class  references,  created  by  ref,  variables,  created  by  letvar,  and  imperative 
constructs  such  as  while  loops.  The  construct  letvar  x  :  =  a  in  b  binds  x  to  a 
new  cell  initialized  to  the  value  of  a.  The  scope  of  the  binding  is  b,  and  the  lifetime 
of  the  cell  is  unbounded.  Conversion  of  L-values  to  i?-values  is  implicit,  so  that 
letvar  x  :=  e  in  x  is  equivalent  to  e. 

The  types  of  our  system  are  stratiRed  into  three  levels.  There  are  the  ordinary 
r  (data  types)  and  a  (type  schemes)  type  levels  of  Damas  and  Milner’s  system 
and  a  new  level  called  phrase  types  containing  a  types  and  types  of  the  form  r  var 
for  variables.  Unlike  references,  variables  are  not  Rrst-class  values.  As  in  Tofte’s 
system  for  Standard  ML  [Tofte  1990],  type  variables  are  partitioned  into  weak  and 
strong  variables.^  Strong  type  variables  are  written  a  and  weak  ones  _a.  A  weak 
type  variable  cannot  be  instantiated  with  a  type  containing  strong  type  variables. 
As  in  Tofte’s  system,  a  weak  type  variable  can  be  generalized  only  when  it  appears 
in  the  type  of  a  syntaetie  value,  that  is,  an  identiRer,  a  literal,  or  a  A-abstraction. 

Because  variable  addresses  are  not  Rrst-class  values,  it  is  easier  to  keep  track 
syntactically  of  operations  on  variables  than  operations  on  references.  As  a  result, 
many  useful  functions  that  use  letvar  can  be  given  fully  polymorphic  types.  For 
example,  imperative  list  reversal  can  be  deRned  as 

fun  irev  1  =  letvar  a  :  =  1  in 
letvar  b  :=  []  in 

while  not  (null  a)  do 
(  b  : =  (hd  a)  : :  b; 
a  : =  tl  a) ; 
b 

end  end 

Two  local  variables  a  and  b  are  declared,  yet  the  function  is  assigned  fully  poly¬ 
morphic  type  Va  .  a  list  a  list  in  our  system.  Thus  irev[]  is  a  polymorphic  list 
of  type  Va  .  a  list.  Consider  a  deRnition  of  irev  in  Standard  ML: 

fun  irev  1  =  let  val  a  =  ref  1  in 
let  val  b  =  ref  []  in 


■^Tofte  actually  calls  them  imperative  and  applicative  variables,  respectively. 
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while  not  (null  (!a))  do 
(  b  :=  (hd  ( !a))  : :  ( !b) ; 
a  :=  tl  ( !a)) ; 

!b 

end  end 

Now  the  use  of  local  variables  is  reflected  in  the  type  of  irev.  Standard  ML  would 
give  it  type  V_a  .  _a  hsi  _a  Hsi,  where  _a  is  an  imperative  type  variable,  and 
Standard  ML  of  New  Jersey  would  give  it  type  list  list  where  is 

a  weak  type  variable.  The  weak  variable  indicates  that  applying  irev  once  may 
create  a  reference  whose  type  involves  a.  In  each  case,  consequently,  irev[]  is  not 
a  polymorphic  list. 

One  has  the  option  of  dehning  irev  in  our  language  using  ref  instead  of  letvar, 
but  this  would  needlessly  constrain  polymorphism.  Our  system  would  then  give  it 
the  Standard  ML  type  V_a  .  _a  list  _a  list,  and  the  application  irev[]  would  no 
longer  be  polymorphic.  In  fact,  if  one  always  uses  let  and  ref  in  our  system  rather 
than  letvar,  then  our  system  “degenerates”  to  Tofte’s  system  for  Standard  ML. 

Our  system  also  does  well  on  programs  that  cause  problems  for  the  “syntactic 
values”  type  system  advocated  by  Wright  [1995].  Consider  makeCountFun  which 
takes  a  function  /  as  input  and  returns  both  a  counting  version  of  /  and  a  function 
to  read  the  counter: 

fun  makeCountFun  f  =  letvar  x  : =  0  in 
(fnz=>x  :=x+  1;  f  z, 
fn  0  =>  x) 

end 

Our  system  gives  makeCountFun  type 

Va,  [3  .  {a  ^  [3)  ^  {a  ^  [3)  X  (unit  int), 

and  an  application  such  as  makeCountFun  hd  is  polymorphic.  If  makeCountFun  is 
written  using  let  and  ref,  then  makeCountFun  hd  is  also  polymorphic  in  Tofte’s 
system.  But  in  Wright’s  system,  makeCountFun  hd  is  monomorphic  because  only 
syntactic  values  are  polymorphic,  and  a  function  application  is  not  a  syntactic  value. 

Programs  that  use  letvar  but  not  ref  may  still  require  weak  types.  The  rule 
is  that  a  letvar-bound  identiher  must  be  given  a  weak  type  if  it  occurs  in  a  A- 
abstraction  within  its  scope.  This  rule  comes  into  play  when  functions  create  “ob¬ 
jects”  or  “own  variables.”  For  example,  consider  a  function  that  creates  a  stack 
object  with  push  and  pop  operations  accessing  a  shared  stack: 

fun  makestack  x  = 
letvar  stk  : =  x  in 

( fn  V  =>  stk  :=  V  ::  stk, 
fn  0  =>  stk  :=  tl  stk) 

end 

It  is  unsound  to  give  makestack  the  strong  polymorphic  type 
Va  .  a  list  (a  ^  unit)  x  (unit  unit) 
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because,  if  the  application  makestack  []  were  polymorphic,  the  resulting  push  op¬ 
eration  could  be  called  with  values  of  different  types,  leading  to  a  nonhomogeneous 
stack.  In  our  system,  since  stk  occurs  inside  a  A-abstraction  within  its  scope,  it 
must  be  given  a  weak  type.  This  allows  makestack  to  be  given  only  the  weak 
polymorphic  type 

V_a  .  _a  hsi  (_a  ^  umi)  x  {unit  unit). 

The  ability  to  give  makestack  a  weak  polymorphic  type  makes  our  system  sub¬ 
stantially  better  than  Edinburgh  LCF  ML  on  cases  of  this  kind.  In  LCF  ML,  a 
letvar-bound  identiher  must  be  given  a  monotype  (i.e.,  a  type  with  no  variables) 
if  it  is  assigned  to  within  a  A-abstraction  within  its  scope  (restriction  2ib  [Gor¬ 
don  et  al.  1979,  p.  49]).  Hence,  since  stk  is  assigned  to  within  the  push  and  pop 
operations,  LCF  ML  requires  stk  to  be  annotated  with  a  monotype.  This  forces 
makestack  to  be  monomorphic. 

Finally,  typings  of  purely  functional  programs  in  our  system  are  preserved  as 
they  are  in  the  type  systems  for  Standard  ML  and  Standard  ML  of  New  Jersey. 
No  labels  or  other  annotations  are  required  on  arrow  types  as  they  are  in  closure 
[Leroy  and  Weis  1991]  and  effect  [Talpin  and  Jouvelot  1992;  Wright  1992]  typing. 

3.  A  FORMAL  TREATMENT  OE  THE  TYPE  SYSTEM 

The  syntax  of  our  language  is  given  below.  Following  Tofte  [1990],  we  distinguish 
a  subset  of  the  expressions  called  Values.  Evaluating  a  value  does  not  allocate  any 
new  cells;  this  property  is  exploited  by  the  type  system. 

(Expressions)  e  ::=  t;  |  /  |  ei  62  |  let  *  =  ei  in  62  | 
letvar  x  :=  ei  in  62  |  ei  :=  62  | 
ref  e  I  *e  I 

ei;e2  |  while  ei  do  62  |  if  ei  then  62  else  63 
(Values)  V  ::=  *  |  c  |  r  |  Xx.e 

Metavariable  x  ranges  over  identihers,  and  metavariable  c  ranges  over  literals, 
such  as  trne,  false,  and  nnit.  Metavariables  I  and  r  range  over  variable  loeaiions 
and  referenee  loeations,  respectively.^  Notice  that  unlike  reference  locations,  vari¬ 
able  locations  are  not  values.  The  *  operator  is  used  to  dereference  a  reference;  it 
is  similar  to  !  in  Standard  ML.  Finally,  we  remark  that  the  sequential  composition 
ei;  62  could  be  taken  as  syntactic  sugar  for  let  z  =  ei  in  62,  where  z  is  new. 

The  types  of  the  language  are  stratihed  as  follows. 

r  ::=  a  I  bool  \  unit  \  r  ref  |  r  ^  r'  (data  types) 

<T  ::=  Va  .  (T  |  r  (type  sehemes) 

p  ::=  a  |  r  var  (phrase  types) 

Metavariable  a  ranges  over  type  variables.  Type  variables  are  partitioned  into  weak 
and  .strong  type  variables,  written  _a  and  a  respectively.  These  variables  correspond 
to  the  imperative  and  applicative  type  variables  respectively  of  Tofte’s  system.  We 


^Locations  will  not  in  fact  occur  in  user  programs.  They  are  included  as  expressions  solely  for  the 
purpose  of  simplifying  the  semantics,  as  will  become  clear  in  Section  4. 
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say  a  data  type  r  is  weak  iff  every  type  variable  occurring  in  it  is  weak.  Type  r  ref 
(r  var)  is  the  type  of  reference  (variable)  locations  storing  values  of  type  r. 

The  rules  of  the  type  system  are  formulated  as  they  are  in  Harper’s  system 
[Harper  1994]  and  are  given  in  Figure  1.  It  is  a  deductive  proof  system  used  to 
assign  types  to  expressions.  Typing  judgments  have  the  form 

\;j\-e:p 

meaning  that  expression  e  has  type  p  assuming  that  the  free  identihers  and  locations 
of  e  have  the  types  prescribed  by  7  and  A,  respectively.  More  precisely,  metavariable 
7  ranges  over  identifier  typings,  which  are  Rnite  functions  mapping  identifiers  to 
phrase  types;  j(x)  is  the  phrase  type  assigned  to  x  by  7,  and  j[x  :  p]  is  a  modified 
identifier  typing  that  assigns  phrase  type  p  to  *  and  assigns  phrase  type  j(x')  to 
any  identifier  x'  other  than  x.  Metavariable  A  ranges  over  location  typings,  which 
are  finite  functions  mapping  locations  to  data  types.  The  notational  conventions 
for  location  typings  are  similar  to  those  for  identifier  typings. 

The  generalization  of  a  data  type  r  relative  to  A  and  7,  written  Close\  j(T),  is  the 
type  scheme  Vd  .  r,  where  a  is  the  set  of  all  type  variables  occurring  free  in  r  but 
not  in  A  or  in  7.  We  write  A  h  e  :  r  and  Close\(T)  when  7  =  0.  A  restricted  form 
of  generalization,  written  AppCloscy^lr),  is  defined  to  be  the  same  as  Close\  j(T) 
except  that  only  strong  type  variables  are  generalized;  any  weak  ones  remain  free. 

A  substitution  is  a  mapping  S  from  type  variables  to  data  types  such  that  if  _a 
is  in  the  domain  of  S ,  then  ^(-a)  is  weak.  Substitutions  extend  homomorphically 
to  data  types. 

We  say  that  r'  is  a  generic  instance  of  Vd  .  r,  written  Vd  ■  t  >  t' ,  if  there  exists 
a  substitution  S  with  domain  d  such  that  St  =  r'.  We  extend  this  definition  to 
type  schemes  by  saying  that  cr  >  cr'  if  for  all  r,  cr'  >  r  implies  a  >  t. 

Finally,  we  write  A;  7  h  e  :  cr  iff  A;  7  h  e  :  r  whenever  a  >  t. 

Rules  (L-VAL)  and  (ASSIGN)  should  be  contrasted  with  the  analogous  rules  in 
Standard  ML.  In  our  system,  if  e  :  r  ref,  then  *e  :  r  var]  in  Standard  ML,  !e  :  r. 
In  our  system,  the  left-hand  side  of  an  assignment  must  have  a  type  of  the  form 
r  var]  in  Standard  ML,  it  must  have  a  type  of  the  form  r  ref .  Hence  if  x  :  int  ref , 
then  one  increments  the  cell  that  x  points  to  by  writing 

:=  *x  +  I 


in  our  system  and 


X  :=  \x  +  I 


in  Standard  ML. 

We  do  not  adopt  Standard  ML’s  typings  of  references  because  this  would  lead 
to  ambiguity.  For  suppose  that  we  had  two  rules  for  typing  assignments:  rule 
(ASSIGN)  and  Standard  ML’s  rule, 

A;7  h  ei  :  r  ref,  A;7  h  62  :  r 
A;  7  h  ei  :=  62  :  unit 


Then  the  expression 


letvar  p  :=  ref  0  in  Xx.p  :=  x 
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(IDENT)  A;  7  h  X  :  r  7(^)  ^  ’’ 

(VAR-ID)  X;  j  \-  X  :  T  var  7(2:)  =  t  var 

(REFLOC)  A;  7  h  r  :  r  re/  A(r)  =  r 

(VARLOC)  X;y\-  I  :  T  var  X{1)  =  t 

(LIT)  A;  7  h  true  :  bool 

A; 7  h  false  :  bool 
A;  7  h  unit  :  unit 

(^-INTRO)  A;  7[x  :  ri]  h  e  :  r2 

A;  7  h  Ax.  e  :  Ti  ^  r2 

(^-ELIM)  A;  7  h  ei  :  Ti  ^  r2,  A;  7  h  62  :  ri 
A;  7  h  ei  62  :  T2 

(LET-VAL)  A;7  h  r  :  Ti,  A;  7[x  :  Closex;-y{Ti}]  \-  e  :  T2 

A;  7  h  let  X  =  V  in  e  :  T2 

(LET-ORD)  A;  7  l-  ei  :  ri,  A;  7[x  :  AppClose^^.^^Ti)]  \-  02  :  T2 

A;  7  h  let  X  =  ei  in  62  :  T2 

(LETVAR)  A;  7  h  61  :  Ti,  A;  7[x  :  ri  var]  h  62  :  r2 

If  X  occurs  in  a  A-abstraction  in  62,  then  ri  is  weak. 
A;  7  h  letvar  x  :=  ei  in  62  :  T2 

(R-VAL)  A;  7  h  6  :  r  var 

A;  7  h  6  :  r 

(ASSIGN)  A;  7  h  61  :  r  var,  A;  7  h  62  :  r 
A;  7  h  61  :=  62  :  unit 

(REF)  A;  7  h  6  :  r,  r  is  weak 

A;  7  h  ref  e  :  r  ref 

(L-VAL)  A;  7  h  6  :  r  ref 

A;  7  h  ^=6  :  r  var 

(COMPOSE)  A;  7  I-  61  :  n,  A;  7  h  62  :  r2 
A;  7  h  61 ;  62  '■  T2 

(WHILE)  A;  7  I-  61  :  bool,  A;  7  h  62  :  r 

A;  7  h  while  ei  do  62  :  unit 

(IF)  A;  7  h  61  :  bool.  A;  7  h  62  :  r,  A;  7  h  63  :  r 

A;  7  h  if  61  then  62  else  63  :  r 

Fig.  1.  Rules  of  the  type  system. 
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in  which  p  has  type  int  ref  var  would  be  ambiguous.  If  x  had  type  int  ref ,  then 
the  assignment  would  make  p  point  to  a  new  cell.  On  the  other  hand,  if  x  had  type 
mi,  then  an  i?-value  conversion  of p  could  give  it  type  mi  ref,  and  the  assignment 
would  change  the  contents  of  the  cell  to  which  p  points.  But  with  our  rules  there 
is  no  ambiguity.  Just  as  in  C,  we  write  p  :=  x  to  make  p  point  to  a  new  cell  and 
^p  :=  X  to  change  the  contents  of  the  cell  to  which  p  points. 

Note  also  how  the  type  stratihcation  and  typing  rules  force  variables  to  be  implic¬ 
itly  dereferenced,  except  when  they  occur  as  the  left-hand  side  of  an  assignment. 
Consider,  for  example,  the  typing  of  letvar  x  :=  ei  in  62-  Rule  (LETVAR)  forces 
62  to  be  given  a  data  type  T2,  not  a  phrase  type.  So  if  62  is  x  (with  type,  say,  ri  var), 
then  we  are  forced  to  use  rule  (R-VAL)  to  derive  the  typing  x  :  ri  before  we  can 
type  the  entire  letvar.  Indeed,  one  can  readily  see  that  the  only  expressions  that 
can  get  types  of  the  form  r  var  are  identihers,  variable  locations,  and  expressions 
of  the  form  *e. 


4.  SEMANTICS  AND  SOUNDNESS 

In  this  section,  we  establish  the  soundness  of  our  type  system  using  the  framework  of 
Harper  [1994],  who  built  upon  the  earlier  work  of  Tofte  [1990],  Wright  and  Felleisen 
[1994],  and  Leroy  and  Weis  [1991]. 

First  we  give  a  structured  operational  semantics  for  our  language.  An  expression 
is  evaluated  relative  to  a  memory  p,  which  is  a  Rnite  function  from  locations  to 
values.  The  contents  of  a  location  I  G  dom(p)  is  the  value  p(l),  and  we  write 
p[l  :=  ri]  for  the  memory  that  assigns  value  v  to  location  I,  and  value  p(l')  to  a 
location  /'  yt  /.  Note  that  p[l  :=  t;]  is  an  update  of  p  if  /  G  dom(p)  and  an  extension 
of  p  if  /  ^  dom(p). 

Our  evaluation  rules  are  given  in  Figure  2.  They  allow  us  to  derive  judgments  of 
the  form 


p\-  e  ^  V,  p' 

which  is  intended  to  assert  that  evaluating  closed  expression  e  in  memory  p  results 
in  value  v  and  new  memory  p' .  We  write  [e' /x\e  to  denote  the  capture-avoiding 
substitution  of  e'  for  all  free  occurrences  of  *  in  e.  The  use  of  substitutions  in  rules 
(APPLY),  (BIND),  and  (BINDVAR)  allows  us  to  avoid  environments  and  closures 
in  the  semantics,  so  that  the  result  of  evaluating  an  expression  is  just  another 
expression. 

We  now  turn  to  soundness.  The  basic  idea  is  to  show  that  if  h  e  :  r  and  E  e  =y 
v,p',  then  \-  V  :  T,  a  property  called  subjeet  reduetion.  But  since  e  can  allocate 
locations  and  since  these  locations  can  occur  in  v,  the  conclusion  must  actually  be 
that  there  exists  a  location  typing  A'  such  that  A'  h  6  :  r  and  such  that  p'  :  A'.  The 
latter  condition  asserts  that  A'  is  consistent  with  p';  more  precisely,  we  say  that 
p  :  X  i{  dom(p)  =  dom(X)  and  for  every  I  G  dom(p),  A  h  p(l)  :  X(l). 

It  is  the  location  typing  A'  that  makes  soundness  delicate.  As  observed  by  Tofte, 
we  may  generalize  a  type  variable  a  in  typing  heir,  only  to  find  that  a  occurs 
(free)  in  A',  and  therefore  cannot  be  generalized  in  typing  X'  h  v  :  r. 
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(VAL) 

fl  \-  V  ^  V,  fl 

(APPLY) 

/t  h  ei  =>  Xx.  ei' ,  Hi 
/ttl  E  62  =S  V2,H2 

H2  E  [v2lx]ei'  =>  V,  H 

/t  E  ei  62  =S  6,  H 

(BIND) 

/t  E  6i  vi,  Hi 

Hi  E  [vilx]e2  =S  V2,H2 

H  E  let  X  =  ei  in  62  =S  62,  H2 

(BINDVAR) 

/t  E  61  ^  vi,  Hi 

1  0  dom^Hi ) 

Hi[l  :=  61]  E  [l/x]e2  =S  V2,H2 

H  E  letvar  x  :=  ei  in  62  =>62,  H2 

(CONTENTS) 

h\-  1  ^  h{i),  h 

(UPDATE) 

H  e  ^  V,  h' 

H  \-  1  :=  e  ^  nnit,  /t'[l  :=  v\ 

/t  E  61  =>  r,  /ti 
/ti  E  62  =S  V,  H2 

H  E  *ei  :=  62  =S  nnit,  H2[r  ■=  v\ 

(ALLOC) 

H  e  ^  V,  h' 
r  0  dom{H') 

H  E  ref  6  =>  r,  h'\t  ■=  6] 

(DEREE) 

H  e  ^  r,  h' 

H  \-  *e  ^  H'(r),  H 

(SEQ) 

/t  E  61  ^  vi,  Hi 
/ttl  E  62  =S  V2,H2 
//  h  ei;  62  =>  V2^  li2 

(LOOP) 

fi  \~  ei  false,  fi' 

H  E  while  61  do  62  =S  nnit,  h' 

/t  E  61  =>  trne,  hi 
/ti  E  62  =S  V,  H2 

H2  E  while  61  do  62  =S  nnit,  h' 

H  E  while  61  do  62  =S  nnit,  h' 

(BRANCH) 

/t  E  61  =>  trne,  hi 
/ti  E  62  =S  6,  h' 

/t  E  if  61  then  62  else  63  =>  v,  h 

//  E  61  =>  false.  Hi 
/ti  E  63  =>  r,  h' 

/t  E  if  61  then  62  else  63  =>  v,  h 

Fig.  2.  The  evaluation  rules. 
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The  approach  taken  by  Tofte  [1990]^  is  to  prevent  the  generalization  of  any  type 
variables  that  may  occur  in  A'.  In  contrast,  our  system  permits  some  type  variables 
that  occur  in  A'  to  be  generalized.  For  example,  an  expression  such  as 

letvar  2;  :=  []  in  2; 

allocates  a  location  I  of  type  a  list]  nevertheless,  we  are  allowed  to  generalize  a. 
The  reason  it  is  sound  to  do  so  is  that  the  expression  evaluates  to  [],  and  (since 
I  does  not  occur  in  [])  we  do  not  need  the  typing  of  I  to  derive  a  type  for  [].  In 
general,  our  system  keeps  track  of  which  variable  locations  may  occur  in  values 
and  prevents  the  generalization  of  type  variables  that  occur  in  the  types  of  these 
locations. 

We  now  proceed  with  the  formal  development  of  the  subject  reduction  theorem. 
First  we  introduce  some  useful  lemmas. 

Lemma  4.1  (SuPERFLUOUSNESs) .  Suppose  that  A;  7  h  e  :  r.  If  /  ^  rfom( A),  then 
A[/  :  t'];7  heir  and  if  r  ^  dom(X),  then  A[r  :  t'];7  heir.  Also,  if  2;  ^  dom(j), 
then  A;  7(2;  :  p]  h  e  :  r. 

Lemma  4.2  (Substitution).  If  A;7  h  p  :  a  and  A;  7(2;  :  cr]  h  e  :  r,  then  A;7  h 
[2;/2;]e  :  r.  Also,  if  A;  7  h  /  :  r  var  and  A;  7(2;  :  r  var]  heir',  then  A;  7  h  [//2;]e  :  r'. 

Lemma  4.3  (V-INTRO).  If  A;7  h  e  :  cr  and  a  does  not  occur  free  in  A  or  in  7, 
then  A;  7  h  e  :  Va  .  a. 

The  preceding  three  lemmas  are  straightforward  variants  of  the  lemmas  given  in 
Harper  [1994].  We  also  need  another  lemma: 

Lemma  4.4.  If  A[/  :  r];  7  h  e  :  r'  and  I  does  not  occur  in  e,  then  A;  7  h  e  :  r'. 

Finally,  we  say  that  I  oeeurs  m  the  range  of  /a  if  /  occurs  in  la(l')  for  some  /'  or 
in  ia(r)  for  some  r.  We  can  now  give  the  subject  reduction  theorem: 

Theorem  4.5.  Suppose  that  p  h  e  =7  p,  p',  A  h  e  :  r,  p  :  A,  and  A  assigns  weak 
types  to  all  reference  locations  in  its  domain  and  to  all  variable  locations  that  occur 
in  the  range  of  p  or  in  a  A-abstraction  in  e.  Then  there  exists  A'  such  that  A  C  A', 
p'  :  A',  A'  h  p  :  r,  and  A'  assigns  weak  types  to  all  reference  locations  in  its  domain 
and  to  all  variable  locations  that  occur  in  the  range  of  p'  or  in  p. 

Proof.  The  proof  is  by  induction  on  the  structure  of  the  derivation  of  p  h  e  =7 
v,ia'.  For  brevity,  we  present  only  the  two  most  interesting  cases:  (BIND),  when 
ei  is  not  a  value,  and  (BINDVAR). 

In  the  (BIND)  case,  where  ei  is  not  a  value,  the  evaluation  must  end  with 
p  h  ei  ^  Pi,  Pi 

Pi  h  [Pi/2;]e2  ^  P2,P2 _ 

p  h  let  2;  =  ei  in  62  =7  P2 ,  P2 


^The  same  approach  is  taken  by  Wright  [1992;  1995]  and  SML/NJ  [Greiner  1993;  Hoang  et  al. 
1993],  but  not  by  Leroy  and  Weis  [Leroy  1992;  Leroy  and  Weis  1991]. 
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while  the  typing  must  end  with 

A  h  ei  :  Ti 

A;  [x  :  AppClosexiTi)]  h  £2  :  r2 
A  h  let  *  =  ei  in  62  :  T2 

Also,  we  have  /U  :  A,  and  A  assigns  weak  types  to  all  reference  locations  in  its  domain 
and  to  all  variable  locations  that  occur  in  the  range  of  //  or  in  a  A-abstraction  in  ei 
or  in  62- 

By  induction,  there  exists  Ai  such  that  A  C  Ai,  :  Ai,  Ai  h  61  :  ti,  and 
Ai  assigns  weak  types  to  all  reference  locations  in  its  domain  and  to  all  variable 
locations  that  occur  in  the  range  of  i^i  or  in  vi. 

Now  to  apply  induction  again  we  want  to  show  that 

Ai  h  [t;i/*]e2  :  T2. 


By  Lemma  4.1  we  have 


Ai;  [*  :  App Close h  62  :  T2, 

so  we  can  apply  Lemma  4.2  to  get  what  we  want  provided  that  we  can  show 

Ai  h  61  :  AppClose^(Ti). 

Now,  applying  Lemma  4.3  to  Ai  h  61  :  ri  we  can  get  Ai  h  61  :  AppClose^^(Ti),  but 
this  is  not  good  enough,  because  Ai  may  contain  free  strong  type  variables  that 
are  not  free  in  A.  To  proceed,  we  exploit  our  knowledge  about  what  locations  can 
occur  in  vi . 

Let  Aj"  be  formed  by  removing  from  Ai  any  typings  I  :  r  such  that  r  is  not 
weak.  By  the  above  use  of  induction,  this  process  does  not  remove  any  typings  of 
locations  that  occur  in  vi,  as  all  such  locations  have  weak  types.  So  by  Lemma  4.4, 
Aj"  1-61  :  Ti.  Hence,  by  Lemma  4.3,  Aj"  h  61  :  AppClose^(Ti),  since  Aj"  contains  no 
strong  type  variables.  Lemma  4.1  then  gives  Ai  h  61  :  AppClose^(Ti),  and  Rnally 
by  Lemma  4.2  we  get  Ai  h  [r’i/*]e2  :  T2. 

By  the  use  of  induction  above,  Ai  assigns  weak  types  to  all  reference  locations  in 
its  domain  and  to  all  variable  locations  that  occur  in  the  range  of  ni.  Furthermore, 
if  a  variable  location  I  occurs  in  a  A-abstraction  in  [r’i/*]e2,  then  either  I  occurs  in 
61,  or  /  occurs  in  a  A-abstraction  in  62.  In  the  first  case,  Ai(/)  is  weak  by  the  above 
use  of  induction;  in  the  second  case,  A(/)  is  weak  by  the  hypothesis,  and  so  Ai(/)  is 
weak  since  A  C  Ai. 

Hence  we  can  use  induction  a  second  time  to  show  that  there  exists  A'  such  that 
Ai  Q  ,  H2  :  A',  A'  h  62  :  T2,  and  A'  assigns  weak  types  to  all  reference  locations 
in  its  domain  and  to  all  variable  locations  that  occur  in  the  range  of  112  or  in  62. 
Since  A  C  Ai  C  A',  we  are  done. 

As  for  the  (BINDVAR)  case,  the  evaluation  must  end  with 

/U  I-  ei  ^ 

I  dom{ni) 

IJ.i[l  :=  vi]  \-  [l/x]e2  =>  V2,l^2 

II  h  letvar  x  :=  ei  in  62  =>  V2,li2 
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while  the  typing  must  end  with 
A  h  ei  :  Ti 

X',[x:ti  var]  h  62  :  T2 

If  X  occurs  in  a  A-abstraction  in  62  then  ri  is  weak. 

A  h  letvar  x  :=  ei  in  62  :  T2 

Also,  we  have  :  A,  and  A  assigns  weak  types  to  all  reference  locations  in  its  domain 
and  to  all  variable  locations  that  occur  in  the  range  of  or  in  a  A-abstraction  in  ei 
or  in  62- 

By  induction,  there  exists  Ai  such  that  A  C  Ai,  :  Ai,  Ai  h  fi  :  ti,  and 
Ai  assigns  weak  types  to  all  reference  locations  in  its  domain  and  to  all  variable 
locations  that  occur  in  the  range  of  i^i  or  in  vi. 

Since  I  ^  dom(Xi),  Ai  C  Ai[/  :  ri]. 

Since  Ai[/  :  ri]  h  /  :  ri  var  and  (by  Lemma  4.1)  Ai[/  :  ri];  [x  :  ti  var]  h  62  :  T2,  we 
can  apply  Lemma  4.2  to  get 

Ai[/  :  Ti]  h  [//*]e2  :  T2. 

Also,  :=  t;i]  :  Ai[/  :  ri]  by  Lemma  4.1. 

Next,  by  the  use  of  induction  above,  Ai[/  :  ri]  assigns  weak  types  to  all  reference 
locations  in  its  domain  and  to  all  variable  locations  that  occur  in  the  range  of 
:=  Now  suppose  that  a  variable  location  V  occurs  in  a  A-abstraction  in 

[l/x]e2.  Then  either  V  occurs  in  a  A-abstraction  in  62,  or  else  V  =  I  and  x  occurs 
in  a  A-abstraction  in  62.  In  the  Rrst  case,  by  the  hypothesis  A(/')  is  weak,  and  so 
Ai[/  :  Ti](/')  is  weak.  In  the  second  case,  by  the  restriction  on  the  (LETVAR)  rule, 
Ti  is  weak,  and  so  Ai[/  :  ti](/')  is  weak. 

So  by  a  second  use  of  induction,  there  exists  A'  such  that  Ai[/  :  ri]  Q  X' ,  H2  '■  X' , 
A'  h  t;2  :  T2,  and  A'  assigns  weak  types  to  all  reference  locations  in  its  domain  and 
to  all  variable  locations  that  occur  in  the  range  of  //2  or  in  t;2.  Since  A  C  Ai  C  Ai[/  : 
Ti]  C  A',  we  are  done.  □ 

Type  soundness  actually  involves  more  than  the  subject  reduction  property.  How¬ 
ever,  it  is  straightforward  to  extend  the  subject  reduction  theorem  to  show  that 
well-typed  programs  cannot  suffer  run-time  type  errors.  This  requires  an  easy 
canonical  forms  lemma  about  the  type  system,  that  tells  us  that  a  closed  value  of 
some  type  has  the  proper  form.  For  example,  a  closed  value  of  type  r  ^  r'  must 
be  a  A-abstraction.  Harper  [1996]  discusses  this  more  fully. 

5.  DISCUSSION 

One  of  our  primary  objectives  has  been  to  simplify  the  types  of  imperative  programs 
as  much  as  possible.  It  is  often  argued  that  too  much  information  in  types  makes 
them  unsuitable  as  specifications  in  module  interfaces.  This  has  also  been  a  goal 
of  Wright’s  system  based  on  syntactic  values.  His  system  is  a  restriction  of  Tofte’s 
system  in  that  all  type  variables  are  considered  imperative,  regardless  of  whether 
references  are  used.'^  To  restore  polymorphism  in  practice,  often  ry-expansion  will 
do.  However,  there  are  cases  when  ry-expansion  does  not  work,  in  particular,  when 


^Indeed,  the  technical  report  [Wright  1993]  describing  this  system  would  be  more  accurately  titled 
“Polymorphism  for  Imperative  Languages  without  Applicative  Types.” 
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computing  polymorphic  procedures  with  imperative  features.  For  example,  in  his 
system,  make  Count  Fun,  expressed  using  let  and  ref,  is  effectively  given  type 

V_a,  _/3 .  (_a  ^  _/3)  ^  (_a  ^  _/3)  x  {unit  mi). 

Consequently,  the  application  makeCountFun  hd  is  not  polymorphic,  and  restoring 
it  by  ry-expansion  will  not  work,  since  each  time  the  expansion  is  called  a  new 
counter  is  created.  Wright  argues  that  in  practice  when  polymorphic  procedures 
are  computed,  the  computation  is  almost  always  functional,  so  polymorphism  can 
easily  be  restored  by  rj  expansion.  Even  if  rj  expansion  does  work,  there  is  also  the 
issue  of  call-by-name  inefhciency  as  there  is  in  Leroy’s  proposal  for  call-by-name 
polymorphism  [Leroy  1993].  Shared  intermediate  polymorphism  through  partial 
application  of  curried  functions  is  lost.  In  view  of  these  dehciencies,  our  system 
with  letvar  is  an  attractive  alternative.  It  is  relatively  simple  and  greatly  reduces 
the  need  for  weak  types. 

Our  system  is  not  perfect,  however.  The  restriction  on  rule  (LETVAR)  sometimes 
forces  variables  to  be  given  weak  types  unnecessarily.  For  example,  consider  the 
following  function  that  computes  the  Cartesian  product  of  two  lists: 

fun  icart  xs  ys  =  letvar  a  :=  xs  in 
letvar  b  :=  []  in 

while  not  (null  a)  do 

(b  :=  (map  (fn  y  =>  (hd  a,  y))  ys)  @  b; 
a  : =  tl  a) ; 
b 

end  end 

The  mere  occurrence  of  variable  a  in  (fn  y  =>  (hd  a,  y))  forces  it  to  be  given  a 
weak  type.  Hence  the  best  type  we  can  give  icart  is 

V_a,  l3  .  _a  Hsi  [3  list  (_a  x  [3)  list, 

even  though  it  should  be  fully  polymorphic. 

Similarly,  the  functional  style  of  programming  that  codes  loops  using  tail  recur¬ 
sion  leads  our  system  to  assign  weak  types  unnecessarily.  This  is  why  we  have 
included  the  while  loop  as  a  primitive  in  our  language. 

We  conjecture®  that  the  restriction  in  the  (LETVAR)  rule  can  be  relaxed  to 

If  X  is  assigned  to  within  a  A-abstraction  in  62,  then  ri  is  weak. 

This  is  similar  to  Edinburgh  LCF’s  restriction  2ib  [Gordon  et  al.  1979,  p.  49]. 
Proving  soundness  now  requires  a  different  strategy  than  the  one  used  here,  because 
now  variable  locations  with  strong  types  can  occur  in  values,  as  in  examples  like 
letvar  x  :=  []  in  At/,  x. 

Under  the  relaxed  restriction,  function  icart  can  be  fully  polymorphic,  because 
variable  a  is  not  assigned  to  within  (fn  y  =>  (hd  a,  y)).  However,  even  the  re¬ 
laxed  restriction  can  force  weak  types  to  be  introduced  unnecessarily.  For  example, 
a  faster  version  of  icart  can  be  obtained  by  eliminating  list  concatenation: 


^This  conjecture  has  now  been  established  for  a  core  language  with  variables  but  no  references 
[Volpano  and  Smith  1995]. 
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fun  fast_icart  xs  ys  =  letvar  a  :=  xs  in 
letvar  b  :=  []  in 

while  not  (null  a)  do 

(map  (fn  y  =>  b  :=  (hd  a,  y)  ::  b)  ys; 
a  : =  tl  a) ; 
b 

end  end 

The  relaxed  restriction  forces  both  xs  and  ys  to  have  weak  type,  although  it  is  safe 
for  them  to  have  strong  type. 

6.  CONCLUSIONS 

The  type  system  presented  here  is  appealing  in  its  combination  of  expressiveness 
and  simplicity.  It  also  clarihes  the  relationship  between  variables  and  references. 
For  example,  C  has  the  conversion  operator  &  for  taking  the  address  of  a  variable 
or  array  element.  We  can  introduce  &  by  including  the  typing  rule 

A;  7  h  e  :  r  var 
T  is  weak 
A ;  7  h  &  e  :  r  ref 

which  is  nicely  symmetric  to  rule  (L-VAL)  [Volpano  and  Smith  1996].  Finally,  this 
work  has  provided  a  basis  for  polymorphic  typing  in  the  C  programming  language 
[Smith  and  Volpano  1996]. 
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